﻿Imports System.Configuration
Imports System.Data.SqlClient
Public Class SumatoriaADO
    Dim MiConexion As New ConexionADO
    Dim cnx As New SqlConnection(MiConexion.GetCnx)
    Dim cmd As New SqlCommand
    Public Function pb_GetDatos() As DataTable
        Dim dts As New DataSet
        Dim ada As SqlDataAdapter
        Try
            cmd.Connection = cnx
            cmd.CommandType = CommandType.StoredProcedure
            cmd.CommandText = "sp_ListadeViajesRealizados"
            'cmd.Parameters.Clear()
            'cmd.Parameters.Add(New SqlParameter("@AppPasajero", SqlDbType.Char, 16))
            'cmd.Parameters.Add(New SqlParameter("@Destino", SqlDbType.Char, 16))
            'cmd.Parameters("@AppPasajero").Value = vAppEmp
            'cmd.Parameters("@Destino").Value = vDestino
            ada = New SqlDataAdapter(cmd)
            ada.Fill(dts, "D_Manifiesto2")

        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
        Return dts.Tables("D_Manifiesto")
    End Function
End Class
